home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr01
/
halcn305.zip
/
TUTOR08.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-04-21
|
754b
|
30 lines
program Tutor08;
{$N+,E+} {Required for floating point number handling}
uses
CRT,
GSOB_DBF,
GSOB_VAR;
var
MyFile : GSO_dBaseFld;
MNum : real;
begin
ClrScr;
MNum := 0;
MyFile.Init('TUTOR1');
MyFile.Open;
MyFile.GetRec(Bttm_Record);
MyFile.NumberPut('PAYMENT',1234.56);
MyFile.PutRec(MyFile.RecNumber);
MyFile.GetRec(Top_Record);
while not MyFile.File_EOF do
begin
MNum := MNum + MyFile.NumberGet('PAYMENT');
writeln(MyFile.DelFlag:6,' ',MyFile.RecNumber:4,' ',
MyFile.FieldGet('LASTNAME'),' ',
MyFile.FieldGet('PAYMENT'));
MyFile.GetRec(Next_Record);
end;
writeln('TOTAL':44,' ',MNum:9:2);
MyFile.Close;
end.